home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00277_Script_popUpbjsfraction < prev    next >
Text File  |  1999-03-07  |  2KB  |  70 lines
  1. property thePopLocn, popSpriten, popNamen, mySpriten, faraway, fieldObjn
  2. global currentChartName, popbgSpriten
  3.  
  4. property xcol
  5. on getPropertyDescriptionList
  6.   set description=[:]
  7.   
  8.   addProp description,#xcol,[#default:"",#format:#integer, ¼
  9.   #comment:"The data colum "]
  10.   return description
  11. end
  12.  
  13. on get behaviorDescription
  14.   return "picks planes"
  15. end
  16. on new me
  17.   set mySpriten = the spriteNum of me
  18.   set popSpriten = mySpriten + 1
  19.   set popbgSpriten = mySpriten - 3
  20.   set right = the right of sprite (mySpriten - 2)
  21.   set top = the top of sprite (mySpriten -2)
  22.   set thePopLocn = point(right, top)
  23.   set popNamen = "fraction_field"
  24.   
  25.   puppetSprite popSpriten, true  
  26.   set faraway = point(-1000, -1000)
  27.   set the loc of sprite popSpriten = faraway
  28.   
  29.   return me
  30. end
  31.  
  32. on register me, theObj
  33.   set fieldObjn = theObj
  34. end 
  35.  
  36.  
  37. on mouseDown me
  38.   set the member of sprite popSpriten = member popNamen
  39.   set the loc of sprite popSpriten = thePopLocn
  40.   set the member of sprite popbgSpriten = member popNamen
  41.   set the loc of sprite popbgSpriten = thePopLocn
  42.   -- put "popped - " & thepoploc
  43.   updateStage
  44.   repeat while the stillDown
  45.     checkIfInside fieldObjn
  46.   end repeat
  47.   
  48.   set the loc of sprite popSpriten = faraway
  49.   set the loc of sprite popbgSpriten = faraway
  50.   
  51.   
  52.   set name = getPlaneName(fieldObjn)
  53.   if name = "" then 
  54.     nothing
  55.   else
  56.     disbjsfraction(name,xcol)
  57.   end if
  58.   
  59.   
  60.   set the loc of sprite popSpriten = faraway
  61.   set the loc of sprite popbgSpriten = faraway
  62.   
  63.   updateStage
  64. end
  65.  
  66. on mouseUp me
  67.   
  68.   nothing
  69. end 
  70.